ALTER PROCEDURE sp_set_Documento
    @cDocCodigo VARCHAR(20) ,
    @dDocFecha DATETIME ,
    @cDocObserv VARCHAR(200) ,
    @nDocTipo INT ,
    @nDocEstado INT ,
    @cAsunto VARCHAR(200) ,
    @cDetalle VARCHAR(200) ,
    @dFechaIni DATETIME ,
    @dFechaFin DATETIME ,
    @cNumDocumento VARCHAR(10) ,
    @nPrdCodigo INT ,
    @cCodPerSolicita VARCHAR(10) ,
    @nPerRelSolicita INT ,
    @nCodUORemite INT ,
    @nDocPerTipo INT ,
    @cCodPerRegistra VARCHAR(10) ,
    @cCodPerRecibe VARCHAR(10) ,
    @nCodUODestino INT
AS 
    BEGIN
        INSERT  INTO Documentos
                ( cDocCodigo ,
                  dDocFecha ,
                  cDOcObserv ,
                  nDocTipo ,
                  nEstado
                )
        VALUES  ( @cDocCodigo ,
                  @dDocFecha ,
                  @cDocObserv ,
                  @nDocTipo ,
                  @nDocEstado
                )

        INSERT  INTO DocContenido
                ( cDocCodigo ,
                  nDocConTipo ,
                  tDocConContenido
                )
        VALUES  ( @cDocCodigo ,
                  1 ,
                  @cAsunto
                )

        INSERT  INTO DocContenido
                ( cDocCodigo ,
                  nDocConTipo ,
                  tDocConContenido
                )
        VALUES  ( @cDocCodigo ,
                  2 ,
                  @cDetalle
                )

        INSERT  INTO DocVigencia
                ( cDocCodigo ,
                  dFechaIni ,
                  dFechaFin
                )
        VALUES  ( @cDocCodigo ,
                  @dFechaIni ,
                  @dFechaFin
                )
		
        INSERT  INTO DocIdentifica
                ( cDocCodigo, nDocTipoNum, cDocNDoc )
        VALUES  ( @cDocCodigo, 1, @cNumDocumento )

        DECLARE @nDocNDoc INT

        SELECT  @nDocNDoc = ISNULL(MAX(CONVERT(INT, cDocNDoc)) + 1, 1)
        FROM    DocIdentifica DI
                INNER JOIN Documentos D ON D.cDocCodigo = DI.cDocCodigo
                INNER JOIN DocPeriodo DPrd ON DPrd.cDocCodigo = D.cDocCodigo
        WHERE   nDocTipoNum = 4
                AND DPrd.nPrdIni = @nPrdCodigo

        INSERT  INTO DocIdentifica
                ( cDocCodigo, nDocTipoNum, cDocNDoc )
        VALUES  ( @cDocCodigo, 4, @nDocNDoc )

        INSERT  INTO DocPersona
                ( cDocCodigo ,
                  nDocPerTipo ,
                  cPerCodigo ,
                  nPerRelacion
                )
        VALUES  ( @cDocCodigo ,
                  1 ,
                  @cCodPerSolicita ,
                  @nPerRelSolicita
                )

        INSERT  INTO DocUniOrg
                ( cDocCodigo ,
                  nUniOrgCodigo ,
                  nDocUniOrgTipo ,
                  nDocUniOrgEstado
                )
        VALUES  ( @cDocCodigo ,
                  @nCodUORemite ,
                  1 ,
                  1
                )

        INSERT  INTO DocPersona
                ( cDocCodigo ,
                  nDocPerTipo ,
                  cPerCodigo ,
                  nPerRelacion
                )
        VALUES  ( @cDocCodigo ,
                  @nDocPerTipo ,
                  @cCodPerRegistra ,
                  1
                )

        INSERT  INTO DocPersona
                ( cDocCodigo ,
                  nDocPerTipo ,
                  cPerCodigo ,
                  nPerRelacion
                )
        VALUES  ( @cDocCodigo ,
                  2 ,
                  @cCodPerRecibe ,
                  1
                )

        INSERT  INTO DocUniOrg
                ( cDocCodigo ,
                  nUniOrgCodigo ,
                  nDocUniOrgTipo ,
                  nDocUniOrgEstado
                )
        VALUES  ( @cDocCodigo ,
                  @nCodUODestino ,
                  2 ,
                  1
                )

        INSERT  INTO dbo.DocPeriodo
                ( cDocCodigo ,
                  nPrdIni ,
                  nPrdFin 
                )
        VALUES  ( @cDocCodigo ,
                  @nPrdCodigo ,
                  @nPrdCodigo
		          
                )



        SELECT  cDocCodigo
        FROM    dbo.Documentos
        WHERE   cDocCodigo = @cDocCodigo

    END

    